|
CATIA V5 Programmierung : Makro für Achsensystem einfügen
DocMurphy am 30.07.2009 um 07:48 Uhr (0)
Guten Morgen!Ich hoffe hier kann mir jemand helfen.Da ich leider mit Makroprogrammierung etwas auf dem Kriegsfuß stehe wende ich mich an euch.Folgende Aufgabe:Für eine im CATIA V5 R16 SP5 geladene Baugruppe soll für jedes Teil folgendes ausgeführt werden:1. In Part schauen ob es mindestens ein Achsensystem gibt2. Wenn es kein Achsensystem gibt eins an den PartUrsprung einfügen3. Alle vorhandenen Achsensystem ausblendenIst dies mit einem Makro möglich?Gruss Doc
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro für Achsensystem einfügen
DocMurphy am 30.07.2009 um 13:45 Uhr (0)
Das ist bis jetzt mein Code: (zusammengebastelt aus verschiedenen Codeschnipseln des Forums)__________________________________________________________________________________________Language="VBSCRIPT"Sub CATMain() Set oRoot = Catia.ActiveDocument Set oProd = oRoot.Product Set oProducts = oRoot.Product.Products SUB_CHECKAXIS oProductsEnd SubSub SUB_CHECKAXIS(oProducts) For i = 1 To oProducts.Count If TypeName(oProducts.Item(n).ReferenceProduct.Parent) = "PartDocument" Then If oProducts.Item(n).GetAxisSy ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro für Achsensystem einfügen
DocMurphy am 04.08.2009 um 10:24 Uhr (0)
Hallo danke für deine Hilfe!Ich habe mich am Wochenende mal hingesetzt und etwas in die Materie eingearbeitet.(Buch ist auch schon bestellt)Ich habe die ganze Sache noch etwas erweitert.Hänge hier mal mein Ergebniss an:__________________________________________________________________________________Sub CATMain() *** CHANGELOG *** 0: DocMurphy = Achsensysteme werden erzeugt und ausgeblendet 1: DocMurphy = OriginalPlanes werden ausgeblendet 2: DocMurphy = Bedingungen werden ausgeblendet 3: D ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Ansichten sperren/entsperren
DocMurphy am 22.12.2010 um 10:04 Uhr (0)
Hier die Lösung die ich danke eurer Hilfe erarbeitet habe:Sub CATMain()Dim oDocSet oDoc = CATIA.ActiveDocumentDim oSheets Set oSheets = oDoc.SheetsDim objSelSet objSel = oDoc.SelectionDim intI***Performanceerhöhung der SucheCATIA.HSOSynchronized = False***Ansichten suchenobjSel.Search "Drafting.View.Name!=Background View"CATIA.HSOSynchronized = True***Ansichten ansprechen***Für jede gefundene Ansicht tue folgendes: sperre AnsichtFor intI = 1 To objSel.Count Set View = objSel.Item(intI).Value***Ansichten s ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Offset von Punkten automatisieren
DocMurphy am 31.01.2012 um 14:52 Uhr (0)
Hänge immer noch an dem oben beschriebenen Problem herum.Ich möchte erreichen das der User vor Start des Scripts ein GEO-Set auswählt und dannin diesem GEO-Set alle Punkte um den definierten Offset in X, Y, oder Z verschoben werden.Das Makro läuft durch und bringt keine Fehlermeldung aber leider werden die Punkte nicht geschoben.Mein Script sieht jetzt so aus:Sub CATMain() Dim myPart As Part Dim Counter As Integer Counter = 0 Dim oFenster As Windows Dim ObjType As String Set oFenster = CA ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Offset von Punkten automatisieren
DocMurphy am 01.02.2012 um 13:43 Uhr (0)
Hab das ganze nochmal etwas anders aufgebaut.Und siehe da es funktioniert.Einen Schönheitsfehler hat das ganze aber noch.Ich möchte das der Anwender vor dem Start des Makros ein GEO-Set auswählt dessen Punkte verschobenwerden sollen.Momentan werden aber alle Punkte in allen GEO-Sets verarbeitet.Irgendwas stimmt da mit der Verarbeitung der Selection noch nicht ganz.Hier das Listing:Sub CATMain() *** Abfrage Dokumente *** Dim oFenster As Windows Dim ObjType As String Set oFenster = CATIA.Windows ...
|
| In das Form CATIA V5 Programmierung wechseln |
